home *** CD-ROM | disk | FTP | other *** search
- object Encryptform: TEncryptform
- Left = 840
- Top = 327
- BorderStyle = bsDialog
- Caption = 'Encrypt'
- ClientHeight = 257
- ClientWidth = 417
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Topbevel: TBevel
- Left = 0
- Top = 65
- Width = 417
- Height = 8
- Align = alTop
- Shape = bsTopLine
- end
- object Inputbrowsebutton: TSpeedButton
- Left = 384
- Top = 88
- Width = 23
- Height = 22
- Hint = 'Browse.'
- Caption = '...'
- OnClick = InputbrowsebuttonClick
- end
- object Outputbrowsebutton: TSpeedButton
- Left = 384
- Top = 136
- Width = 23
- Height = 22
- Hint = 'Browse.'
- Caption = '...'
- OnClick = OutputbrowsebuttonClick
- end
- object Alglabel: TLabel
- Left = 8
- Top = 168
- Width = 46
- Height = 13
- Caption = 'Algorithm:'
- end
- object Bottombevel: TBevel
- Left = 8
- Top = 216
- Width = 401
- Height = 9
- Shape = bsTopLine
- end
- object Toppanel: TPanel
- Left = 0
- Top = 0
- Width = 417
- Height = 65
- Align = alTop
- BevelOuter = bvNone
- Color = clWhite
- TabOrder = 0
- object Captionlabel: TLabel
- Left = 8
- Top = 8
- Width = 91
- Height = 13
- Caption = 'Encrypt Archive'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Infolabel: TLabel
- Left = 16
- Top = 24
- Width = 396
- Height = 26
- Caption =
- 'Please specify a file that you want to encrypt in the upper fiel' +
- 'd, then specify a output file name. Select which algorithm you w' +
- 'ant to use and a password of your choice.'
- WordWrap = True
- end
- end
- object Inputedit: TLabeledEdit
- Left = 8
- Top = 88
- Width = 369
- Height = 21
- EditLabel.Width = 69
- EditLabel.Height = 13
- EditLabel.Caption = 'File to encrypt:'
- LabelPosition = lpAbove
- LabelSpacing = 3
- ReadOnly = True
- TabOrder = 1
- end
- object Outputedit: TLabeledEdit
- Left = 8
- Top = 136
- Width = 369
- Height = 21
- EditLabel.Width = 100
- EditLabel.Height = 13
- EditLabel.Caption = 'Encrypted file output:'
- LabelPosition = lpAbove
- LabelSpacing = 3
- ReadOnly = True
- TabOrder = 2
- end
- object Algcombobox: TComboBox
- Left = 8
- Top = 184
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 5
- TabOrder = 3
- Text = 'Rijndael (256-bit)'
- Items.Strings = (
- 'Blowfish (128-bit)'
- 'DES (56-bit)'
- 'Triple DES (168-bit)'
- 'Rijndael (128-bit)'
- 'Rijndael (192-bit)'
- 'Rijndael (256-bit)')
- end
- object Cancelbutton: TButton
- Left = 336
- Top = 224
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 4
- OnClick = CancelbuttonClick
- end
- object Encryptbutton: TButton
- Left = 256
- Top = 224
- Width = 75
- Height = 25
- Caption = 'Encrypt'
- Default = True
- TabOrder = 5
- OnClick = EncryptbuttonClick
- end
- object Passedit: TLabeledEdit
- Left = 160
- Top = 184
- Width = 121
- Height = 21
- EditLabel.Width = 76
- EditLabel.Height = 13
- EditLabel.Caption = 'Enter password:'
- LabelPosition = lpAbove
- LabelSpacing = 3
- PasswordChar = '*'
- TabOrder = 6
- end
- object Pass2edit: TLabeledEdit
- Left = 288
- Top = 184
- Width = 121
- Height = 21
- EditLabel.Width = 85
- EditLabel.Height = 13
- EditLabel.Caption = 'Retype password:'
- LabelPosition = lpAbove
- LabelSpacing = 3
- PasswordChar = '*'
- TabOrder = 7
- end
- object Helpbutton: TButton
- Left = 8
- Top = 224
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 8
- OnClick = HelpbuttonClick
- end
- end
-